unit uCxtUtil;

interface

uses
  Windows, ShellAPI;

procedure ShellOpen(const DocName: string);
procedure OpenUrl(const Url: string);

implementation

procedure ShellOpen(const DocName: string);
begin
  ShellExecute(0, 'OPEN', PChar(DocName), nil, nil, SW_SHOWMAXIMIZED);
end;

procedure OpenUrl(const Url: string);
begin
  ShellOpen(Url);
end;

end.
